SUBROUTINE OUTINF
	COMMON /TYP/JOUT
	COMMON /DEVS/ID1,ID21,JTYPE,ID23,ID20
	COMMON/B/MOT,PR,T5,NINS,I,RA,KZY,NWX,INONLY,MX,
	1 Y,Z,FNAME,MZ /D/TF,AMPFAC,OMIT,DURX,IXIN
	DATA SCOR/'SCOR'/,BLA/'   '/ 
	WRITE(JTYPE,117)
	READ(JTYPE,116)AMPFAC,TF,OMIT,DURX
  	IF(TF.EQ.0)TF=1.
  	IF(AMPFAC.EQ.0)AMPFAC=1.
  	IF(DURX.EQ.0)DURX=19999.
115	FORMAT(9I)
116	FORMAT(4F)
112	FORMAT(A4)
118	FORMAT(' TO DSK=1   TTY=2   BOTH=0   LPT=4  '$)
117	FORMAT(' TYPE AMPFAC, TEMPFAC, OMIT, DUR, OR <CR> '$)
113	FORMAT(' OUTPUT NAME? (<CR>="SCOR") '$)
	WRITE(JTYPE,118)
	READ(JTYPE,115)MX,IXIN,INONLY
C MX=WHERE TO SEND OUTPUT, IXIN=RAN NUM, INONLY=INST NUM. TO RUN SINGLE INST.
    	JOUT=5
C  5=OUTPUT TO TTY
	IF(MX.EQ.4)JOUT=3
C MX=4=DIRECT TO LPT 
C MX=10,11,ETC.,22,ETC. SUPPRESSES INPUT LISTING.
  	IF(INONLY.EQ.0)INONLY=-1
	MZ=0
  	GO TO(110,210,310,210,510,610)MX
C 0=DSK,TTY  1=DSK  2=TTY  3=0  4=LPT  5=TTY  6=TTY
310	MZ=-1
110	WRITE(JTYPE,113)
	READ(JTYPE,112)FNAME
	IF(FNAME.EQ.BLA)FNAME=SCOR
   	MX=-1  
	CALL DISKO(ID1,FNAME,0)
CC	CALL OPEN(1,FNAME,0,'NEW',JW,JW,'UNF')
C**** THIS WRITES A FILE NAMED 'RUNIT.DAT' ********
  	RETURN 
210	MZ=-1
510	RETURN 
610	MZ=-6
    	RETURN 
C1114	FORMAT('    FOR THE ABOVE YOU MAY TYPE UP TO 3 NUMBERS: N1 N2 N3'//
C	1' N1 = 1 WRITES DATA ON DSK,  =2 WRITES ONLY ON SCREEN,'/
C	1'    = 0 WRITES ON DSK AND SCREEN.'/
C	1'    = 11,22,33 ARE THE SAME AS 1,2,0 BUT INPUT LIST IS NOT
C	1 WRITTEN ON SCREEN.'/
C	1/' N2 = RAN NUM INITIALIZATION.       N3 = DO ONLY INST. #N'/
C	1/' ALSO FOR N1:  N1=5(OR 55)=DURS ONLY (FOR PROOFING)
C	1, =6(OR 66)=DEBUG V ARRAY'//
C	1 3X' UP TO 30 PARAMETERS AND 27 INSTRUMENTS ARE AVAILABLE'/)
	END